home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_perl.idb / usr / freeware / lib / perl5 / 5.00502 / sys / select.ph.z / select.ph
Encoding:
Text File  |  1998-10-28  |  1.9 KB  |  58 lines
  1. unless(defined(&_SYS_SELECT_H)) {
  2.     eval 'sub _SYS_SELECT_H () {1;}';
  3.     # "$Revision: 1.17 $"
  4.     require 'sgidefs.ph';
  5.     require 'standards.ph';
  6.     unless(defined(&FD_SETSIZE)) {
  7.     eval 'sub FD_SETSIZE () {1024;}' unless defined(&FD_SETSIZE);
  8.     }
  9.     eval 'sub __NBBY () {8;}' unless defined(&__NBBY);
  10.     eval 'sub __NFDBITS () {($sizeof{ &fd_mask_t} *  &__NBBY);}' unless defined(&__NFDBITS);
  11.     eval 'sub __howmany {
  12.         local($x, $y) = @_;
  13.         eval q(((($x)+(($y)-1))/($y)));
  14.     }' unless defined(&__howmany);
  15.     eval 'sub FD_SET {
  16.         local($n, $p) = @_;
  17.         eval q((-> $fds_bits[/ &__NFDBITS] |= (1<< (($n) %  &__NFDBITS))));
  18.     }' unless defined(&FD_SET);
  19.     eval 'sub FD_CLR {
  20.         local($n, $p) = @_;
  21.         eval q((($p)-> $fds_bits[($n)/ &__NFDBITS] &= ( &fd_mask_t) ~(1<< (($n) %  &__NFDBITS))));
  22.     }' unless defined(&FD_CLR);
  23.     eval 'sub FD_ISSET {
  24.         local($n, $p) = @_;
  25.         eval q((-> $fds_bits[/ &__NFDBITS] & (1<< (($n) %  &__NFDBITS))));
  26.     }' unless defined(&FD_ISSET);
  27.     if((defined(&_SGIAPI) ? &_SGIAPI : 0)) {
  28.     require 'string.ph';
  29.     }
  30.     if(!defined( &_SIZE_T)  && !defined( &_SIZE_T_)) {
  31.     eval 'sub _SIZE_T () {1;}' unless defined(&_SIZE_T);
  32.     }
  33.     if((defined(&_SGIAPI) ? &_SGIAPI : 0)) {
  34.     eval 'sub FD_ZERO {
  35.         local($p) = @_;
  36.             eval q( &memset(($p), 0, $sizeof{($p)}));
  37.     }' unless defined(&FD_ZERO);
  38.     } else {
  39.     eval 'sub FD_ZERO {
  40.         local($p) = @_;
  41.             eval q( &__memset(($p), 0, $sizeof{($p)}));
  42.     }' unless defined(&FD_ZERO);
  43.     }
  44.     if((defined(&_SGIAPI) ? &_SGIAPI : 0) || defined( &_BSD_TYPES)) {
  45.     unless(defined(&NBBY)) {
  46.         eval 'sub NBBY () {8;}' unless defined(&NBBY);
  47.     }
  48.     unless(defined(&howmany)) {
  49.         eval 'sub howmany {
  50.             local($x, $y) = @_;
  51.             eval q(((($x)+(($y)-1))/($y)));
  52.         }' unless defined(&howmany);
  53.     }
  54.     eval 'sub NFDBITS () { &__NFDBITS;}' unless defined(&NFDBITS);
  55.     }
  56. }
  57. 1;
  58.